Sub 데이터_교환()

    Range("B3").Value = Range("D3").Value
    Range("D3").Value = Range("B3").Value

End Sub
